home *** CD-ROM | disk | FTP | other *** search
/ Clinical Endocrinology / Clinical Endocrinology.iso / mac / 00000000 / 20000000 / Shared.dir / 00957_Script_957 < prev    next >
Text File  |  1995-11-17  |  1KB  |  51 lines
  1. -- Handler called by "Pages.dir" MIAW. Looks for
  2. -- QD text in parent movie and compiles it into
  3. -- a global which the MIAW can read. It then places 
  4. -- it in its main window.
  5.  
  6. on grabTextPages 
  7.   global firstQDPage, lastQDPage, grabbedText
  8.   
  9.   set grabbedText = ""
  10.   
  11.   repeat with i = firstQDPage to lastQDPage
  12.     put the text of field i into theText
  13.     put theText & RETURN after grabbedText
  14.   end repeat
  15.   
  16. end grabTextPages
  17. ---------------------------------------------------
  18.  
  19. on keepHistory
  20.   
  21.   global lastpathName, movieRef, greyLine, hardDisk
  22.   
  23.   getGreyLine
  24.   put line greyLine of field "Menu Listing" into theText
  25.   put the number of words in theText into theWords
  26.   put word 1 to theWords of theText into movieRef
  27.   put the pathName & the moviename into lastpathName
  28.   
  29.   put hardDisk & "History.dir" into childMovie
  30.   
  31.   tell window childMovie
  32.     updateHistory
  33.   end tell
  34.   
  35. end keepHistory
  36. ------------------------------------------
  37. -- Handler to open the MIAW for keeping screen history.
  38.  
  39. on openHistoryWindow
  40.   
  41.   global hardDisk
  42.   
  43.   put  hardDisk & "History.dir" into childWindow
  44.   set the title of window childWindow to "History"
  45.   set the windowType of window childWindow = 5
  46.   open window childWindow
  47.   set the modal of window childWindow to true
  48.   
  49. end openHistoryWindow
  50. ------------------------------------------
  51.